home *** CD-ROM | disk | FTP | other *** search
/ Dream 55 / Amiga_Dream_55.iso / RISCOS / APPS / TEXT / PS / KIT-PS.ZIP / Kit PS / !PSUtils / pl / fixwwps < prev    next >
Text File  |  1997-01-24  |  462b  |  28 lines
  1. @rem = '-*- Perl -*-
  2. @echo off
  3. perl -S %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9
  4. goto endofperl
  5. ';
  6.  
  7. # fixwwps: get semi-conforming PostScript out of Windows Write file
  8. #
  9. # Copyright (C) Angus J. C. Duggan 1991-1995
  10. # See file LICENSE for details.
  11.  
  12. $page = 1;
  13.  
  14. while (<>) {
  15.    if (/^(%!.*) EPSF-\d.\d/) {
  16.       print $1, "\n";
  17.    } elsif (/^SS/) {
  18.       print "%%Page: $page $page\n";
  19.       print $_;
  20.       $page++;
  21.    } else {
  22.       print $_;
  23.    }
  24. }
  25. __END__
  26. :endofperl
  27.  
  28.